<script>on mouseUpgoSearchOption "Main topics"wait while the mouseClickend mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>79</left>
<top>27</top>
<right>133</right>
<bottom>75</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Index</name>
<script>on mouseUpgoSearchOption "Index"wait while the mouseClickend mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>143</left>
<top>27</top>
<right>197</right>
<bottom>75</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Look for</name>
<script>on mouseUpgoSearchOption "Look for"wait while the mouseClickend mouseUp</script>
</part>
<part>
<id>19</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>7</left>
<top>9</top>
<right>196</right>
<bottom>25</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Instruction 1</name>
<script></script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>357</left>
<top>277</top>
<right>430</right>
<bottom>293</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Quit</name>
<script>on mouseUpdoMenu "Quit HyperCard"end mouseUpon domenu menuItem --// Added by Medior, Inc. 12/9/91global RPStackNameif ","&menuItem&"," is in ",Home,Quit HyperCard," and RPStackName is not "" thenset cursor to 4put RPStackName into shortnamerepeat until offset(":",shortname) = 0delete char 1 to offset(":",shortname) of shortnameend repeatdelete last char of shortnameanswer "This will return to "&shortname&"." with "Cancel" or "OK"if it is "Cancel" then exit domenuset cursor to 4lock screengo RPStackNameunlock screen with dissolve fastsend openCard to this cdexit to HyperCardelse pass doMenuend domenu</script>
</part>
<part>
<id>22</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>207</left>
<top>25</top>
<right>438</right>
<bottom>266</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>15</textHeight>
<name>The Hits</name>
<script>on mouseUpif me is empty then exit mouseUpgoHitwait while the mouseClick -- Throw away extra mouse clicks.end mouseUp</script>
</part>
<part>
<id>24</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>206</left>
<top>9</top>
<right>436</right>
<bottom>25</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Instruction 3</name>
<script></script>
</part>
<part>
<id>26</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>7</left>
<top>90</top>
<right>202</right>
<bottom>131</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Instruction 2</name>
<script></script>
</part>
<part>
<id>31</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>203</left>
<top>37</top>
<right>438</right>
<bottom>267</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Alias record</name>
<script>-- This field stores the alias record information.on mouseUphide meend mouseUp</script>
</part>
<part>
<id>39</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>3</left>
<top>3</top>
<right>444</right>
<bottom>272</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Wrong Fonts Cover</name>
<script></script>
</part>
<part>
<id>40</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>8</left>
<top>276</top>
<right>232</right>
<bottom>294</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Last query</name>
<script>-- If this stack is locked, then this field serves no purpose.-- Otherwise, it serves the following purpose.-- When you click a section on this card, the section name goes-- into this field. When you return to this field, if the short name-- of the recent content stack (which is saved in a global) is the-- same as the contents of this field then I don’t need to do a-- lookup. Otherwise, I do.on mouseUphide meend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>19</id>
<text>1. Click an icon to choose a view.</text>
</content>
<name>Search options</name>
<script>The handlers in this bkgnd script are divided into these major areas:-- System messages and related handlers-- Message handler library-- Scripts for Index and Look For----•• SYSTEM MESSAGES AND RELATED HANDLERS ••----on resumeStacksend "resumeStack" to this stackcheckMenu trueend resumeStackon closeBackgroundcheckMenu falsepass closeBackgroundend closeBackgroundon openCard-- Store the current location in this stack.checkMenu trueput the short name of this card into whichCardif whichCard is "Welcome" OR whichCard is "Wrong fonts" thenput the short name of card 2 into whichCardend ifstoreHelpInfoMR 10,whichCardpass openCardend openCardon mouseUpshowHits falseput empty into bkgnd field "The hits"put empty into bkgnd field "Last query"pass mouseUpend mouseUpon arrowKey-- In this stack, you can’t use arrow keys for navigation.-- You can use command 1, 2, 3, and 4.if the selectedField is not empty then pass arrowKeyend arrowKey----•• MESSAGE HANDLER LIBRARY ••----on goSearchOption whichCard-- This handler assumes the message was sent by one of the three-- navigation buttons.set cursor to watchif the short name of this card is whichCard then-- You’re already on that card.set the hilite of the target to trueelse-- Go to that card.lock screengoCardMR whichCardend ifend goSearchOptionon checkMenu boolean-- Set the check mark of the appropriate menu item.if boolean is false then checkMenuItem 1,false elseget the short name of this cardcheckMenuItem 1,it is "Main topics" OR it is "Index" OR ¬it is "Look for"end ifend checkMenuon printMR-- Print the current topic or the card.answer "Print this window?" with "Cancel" or "Print" --∆if it is "Cancel" then exit printMR else printContentAreaend printMRon selectQuery whichField,whichLine-- This message is sent when you click one of the Query card fields.if firstVisibleLine(the short name of whichField) > whichLine then-- The line clicked is not fully visible. Make it visible.set scroll of whichField to ¬(the scroll of whichField - the textHeight of whichField)end ifunlock screenselectWholeLineMR whichLine,the name of whichFieldend selectQueryon showHits boolean-- Show or hide the right-list objects.if boolean is false AND visible of bkgnd field "The hits" is false then-- Exit so the cursor doesn’t flash.exit showHitsend iflock screenset visible of bkgnd field "Instruction 3" to booleanset visible of bkgnd field "The hits" to booleanset visible of bkgnd field "Right shadow" to booleanunlock screenend showHitson goHit-- You clicked on a right-hand list. Go to the correponding card.set cursor to watchput word 2 of the clickLine into whichLineput line whichLine of bkgnd field "The hits" into theHitif theHit is empty thenbeepexit goHitend ifselectWholeLineMR whichLine,the name of bkgnd field "The hits"wait 5put textToLineNumMR(theHit,allTopics()) into topicLineif topicLine is empty OR topicLine is 0 then -- This would be a bug.beepanswer "Can’t find any information for this topic." with "OK" --∆elseput line topicLine of card field "Stack numbers" ¬of card "Copyright" into stackNumberput line stackNumber of card field "Queries" ¬of card "Main Topics" into whichStackgoStack whichStack,theHit,falseend ifend goHit----•• SCRIPTS FOR INDEX AND LOOK FOR ••----on lookItUp theQuery,noDialog-- This is the main lookup handler.-- noDialog is true if you don’t want a dialog when no hits are found.if theQuery is empty then exit lookItUpif the length of theQuery is 1 then-- The query is only one letter long and we decide that is too vague.showHits falseput empty into bkgnd field "The hits"if noDialog is not true thenbeepanswer "Your request must be more specific than “" & ¬theQuery & "”. Please type at least two letters in the box," && ¬"then click Get Topics again." with "OK" --∆end ifexit lookItUpend ifset cursor to busyput char 1 to 100 of theQuery into theQuery-- ∆ If the user entered "All topics" then return all of the topics.if theQuery is "All Topics" then put allTopics() into theHitselse put lookFor(theQuery) into theHitsset the scroll of bkgnd field "The Hits" to 0-- Delete the trailing return.if last char of theHits is return then delete last char of theHitsput theHits into bkgnd field "The Hits"if bkgnd field "The hits" is empty thenif noDialog is not true then sayNoHitsFound theQueryend ifshowHits bkgnd field "The hits" is not emptyput theQuery into bkgnd field "Last query"end lookItUpfunction lookFor theQuery-- Return an intersection of the hits for the given query.set cursor to busyget topicNumbers(theQuery)return convertLineNumbersToLines(it,allTopics())end lookForfunction topicNumbers theQuery-- Given the phrase from the user, return a word-delimited list of-- numbers that refer to specific lines in the All Topics field.put empty into topicList-- Look for an exact match in the list of topics:get textToLineNumMR(theQuery,allTopics())if it is not 0 then return it-- Look for an exact match in the list of keys:put givenKeyGetReferent(theQuery & ",",keys()) into aHitif aHit is not empty then return aHit-- Iterate over each word in theQuery & return the intersection:repeat with N = 1 to the number of words in theQueryset cursor to busyput word N of theQuery into theKey-- If the word is a line in the stop list, then go to the next word.if textToLineNumMR(theKey,stopList()) is not 0 then next repeat-- If the word is in the thesaurus, then substitute its equivalent.put textBeginsLine(theKey & ",",thesaurus()) into whichLineif whichLine is not 0 thenput last item of line whichLine of thesaurus() into theKeyend if-- If a line in the keys begins with the word, then get the hits.put givenKeyGetReferent(theKey,keys()) into aHitif topicList is empty then put aHit into topicListelse put intersection(aHit,topicList) into topicListif topicList is empty then return emptyend repeatreturn topicListend topicNumbersfunction convertLineNumbersToLines theNumbers,theContainer-- Given numbers separated by spaces, return the sorted-- list of lines they correspond to.if word 1 of theNumbers is empty then return emptyput the number of words of theNumbers into totalrepeat with N = 1 to totalset cursor to busyget word N of theNumbersif it is an integer thenput line it of theContainer & return after theResultelse beepend repeatif last line of theResult is empty then delete last line of theResultsort theResultreturn theResultend convertLineNumbersToLinesfunction givenKeyGetReferent theKey,table-- Given a key (item 1 of table), return the referent.-- IMPORTANT: This function allows partial matching since it-- doesn’t look for the comma, that is, <return & theKey & ",">if theKey is empty then return emptyput textBeginsLine(theKey,table) into whichLineif whichLine is 0 then return empty else-- Return 2nd through Nth item.return item 2 to (the number of items in line whichLine of table) ¬of line whichLine of tableend ifend givenKeyGetReferentfunction intersection listA,listB-- Return a space-delimited intersection of two given lists.-- Assumes items in a list are words, that is, delimited by spaces.put empty into theAnswer-- Iterate over the shortest list:if the number of words of listA > the number of words of listB thenput listA into tempput listB into listAput temp into listBend if-- Pad beginning and end with spaces so "is in" doesn't misfire on-- the first and last words of the list:put space & listA & space into listAput space & listB & space into listBrepeat with N = 1 to the number of words of listAset cursor to busyget space & word N of listA & spaceif it is in listB then put it after theAnswerend repeatreturn theAnswerend intersectionfunction allTopicsreturn card field "All topics" of card "Copyright"end allTopicsfunction keysreturn card field "Keys" of card "Copyright"end keysfunction stopListreturn card field "Stop list" of card "Copyright"end stopListfunction thesaurusreturn card field "Thesaurus" of card "Copyright"end thesaurusfunction stackNumbersreturn card field "Stack numbers" of card "Copyright"end stackNumberson sayNoHitsFound theQuery-- Indicate that no hits were found for the given query.beepanswer "Couldn't find any topics related to “" ¬& theQuery & "”. Please try a different word or phrase." with "OK" --∆end sayNoHitsFound</script>
